object dmDadosClientes: TdmDadosClientes
  OldCreateOrder = False
  Left = 320
  Top = 120
  Height = 406
  Width = 481
  object sqlTblcli: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select *'#13#10'from tblcli'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dmConexao.SQLConnection
    Left = 208
    Top = 24
  end
  object dspTblcli: TDataSetProvider
    DataSet = sqlTblcli
    OnUpdateError = dspTblcliUpdateError
    Left = 208
    Top = 80
  end
  object cdsTblcli: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTblcli'
    AfterInsert = cdsTblcliAfterInsert
    BeforePost = cdsTblcliBeforePost
    BeforeCancel = cdsTblcliBeforeCancel
    Left = 208
    Top = 136
    object cdsTblcliclicod: TIntegerField
      FieldName = 'clicod'
      Required = True
    end
    object cdsTblcliclitip: TIntegerField
      FieldName = 'clitip'
      Required = True
      OnValidate = cdsTblcliclitipValidate
    end
    object cdsTblcliclicpf: TStringField
      FieldName = 'clicpf'
      OnValidate = cdsTblcliclicpfValidate
      Size = 18
    end
    object cdsTblcliclidtcad: TDateField
      FieldName = 'clidtcad'
      Required = True
    end
    object cdsTblcliclinome: TStringField
      FieldName = 'clinome'
      Required = True
      OnValidate = cdsTblcliclinomeValidate
      Size = 40
    end
    object cdsTblclicliender: TStringField
      FieldName = 'cliender'
      Size = 50
    end
    object cdsTblcliclinro: TStringField
      FieldName = 'clinro'
      Size = 5
    end
    object cdsTblcliclicompl: TStringField
      FieldName = 'clicompl'
      Size = 15
    end
    object cdsTblcliclibairro: TStringField
      FieldName = 'clibairro'
      Size = 30
    end
    object cdsTblcliclicidade: TStringField
      FieldName = 'clicidade'
      Size = 40
    end
    object cdsTblclicliuf: TStringField
      FieldName = 'cliuf'
      Required = True
      Size = 2
    end
    object cdsTblcliclicep: TStringField
      FieldName = 'clicep'
      OnValidate = cdsTblcliclicepValidate
      EditMask = '99999\-999;1;_'
      Size = 9
    end
    object cdsTblcliclirg: TStringField
      FieldName = 'clirg'
      Size = 13
    end
    object cdsTblcliclisexo: TIntegerField
      FieldName = 'clisexo'
      Required = True
    end
    object cdsTblcliclidtaniver: TDateField
      FieldName = 'clidtaniver'
    end
    object cdsTblcliclifonecelul: TStringField
      FieldName = 'clifonecelul'
      EditMask = '\(99\)999999999;1;_'
      Size = 15
    end
    object cdsTblcliclifoneresid: TStringField
      FieldName = 'clifoneresid'
      EditMask = '\(99\)999999999;1;_'
      Size = 15
    end
    object cdsTblclicliemail: TStringField
      FieldName = 'cliemail'
      OnValidate = cdsTblclicliemailValidate
      Size = 60
    end
  end
  object sqlExisteClicpf: TSQLDataSet
    SchemaName = 'root'
    CommandText = 'select clicpf, clinome'#13#10'from tblcli'#13#10'where clicpf = :clicpf'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'clicpf'
        ParamType = ptInput
      end>
    SQLConnection = dmConexao.SQLConnection
    Left = 48
    Top = 24
    object sqlExisteClicpfclicpf: TStringField
      FieldName = 'clicpf'
      Required = True
      Size = 18
    end
    object sqlExisteClicpfclinome: TStringField
      FieldName = 'clinome'
      Required = True
      Size = 40
    end
  end
end
